home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.2
/
Video Toaster v4.2.iso
/
arexx
/
cg
/
chartfont.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-13
|
4KB
|
139 lines
/* ChartFont.rexx -- Make An Alt Character Chart. */
/* By Bob Caron © 1994 NewTek, Inc. */
call addlib(CG_AREXX,0)
location=REQ_file("Choose a postscript font","","toaster:PSFonts")
if right(location,1)="/" && right(location,1)=":" then do
call REQ_TELL("You have to choose a font.")
call REMLIB(CG_AREXX)
exit
end
if exists(location)=0 then do
call REQ_TELL("Error... I Can't Load THAT!")
call REMLIB(CG_AREXX)
exit
end
call choppath(location)
fontname=filenam
firstfont=get_font(FIRST)
do until (fontnsize=firstfont)
fontnsize=get_font(NEXT)
option="NEXT"
if lastpos(',',fontnsize)~=0 then do
sizefnt=right(fontnsize,(length(fontnsize)-lastpos(',',fontnsize,length(fontnsize)-1)))
font=left(fontnsize,(lastpos(',',fontnsize,length(fontnsize))-1))
call choppath(font)
if fontname=filenam & sizefnt=40 then do
call set_char(FACE,fontname,40)
call skipload
end
end
end
if loadfont(location,40)=0 then do
call req_tell("Error Loading:",location,"[In size: 40]")
call remlib(CGAREXX)
call req_tell("I can't continue")
exit
end
skipload: /* This is so fugly I can't even say how fugly this is!!! But
I can't do this without distrations today. Argh! */
page = GET_PAGE()
call SET_PAGE(NEXT)
if page_is_blank() then do
call SET_PAGE(TYPE,Scroll)
call GenChart()
end
else do
call KILLPAGE(page)
call SET_PAGE(TYPE,Scroll)
if page_is_blank() then
call GenChart()
end
page = GET_PAGE()
exit
GenChart: /* This is an ugly method... But... I dont Care! :P */
call makeline()
call set_line(FIRST)
call makeline("Alt Chart:")
call pickline()
call set_line(JUST,Center)
call makeline()
call makeline("ALT-1=¹ ALT-2=² ALT-3=³")
call makeline("ALT-4=¢ ALT-5=¢ ALT-6=½")
call makeline("ALT-7=¾ ALT-8=· ALT-9=«")
call makeline("ALT-0=»")
call makeline()
call makeline("ALT-a=æ ALT-b=º ALT-c=ç")
call makeline("ALT-d=ð ALT-e=© ALT-i=¡")
call makeline("ALT-l=£ ALT-n= ALT-o=ø")
call makeline("ALT-p=¶ ALT-q=å ALT-r=®")
call makeline("ALT-s=ß ALT-t=þ ALT-u=µ")
call makeline("ALT-v=ª ALT-w=° ALT-x=×")
call makeline("ALT-y=¤ ALT-z=±")
call makeline()
call makeline("ALT-A=Æ ALT-B=º ALT-C=Ç")
call makeline("ALT-D=Ð ALT-E=© ALT-I=¦")
call makeline("ALT-L=£ ALT-M=¿ ALT-N=¯")
call makeline("ALT-O=Ø ALT-P=¶ ALT-Q=Å")
call makeline("ALT-R=® ALT-S=§ ALT-T=Þ")
call makeline("ALT-U=µ ALT-V=ª ALT-W=°")
call makeline("ALT-X=÷ ALT-Y=¥ ALT-Z=¬")
call makeline("")
call makeline("Dead keys:")
call makeline("")
call makeline("ALT-f,a=á ALT-g,a=à ALT-h,a=â")
call makeline("ALT-j,a=ã ALT-k,a=ä")
call makeline("")
call makeline("ALT-f,e=é ALT-g,e=è ALT-h,e=é")
call makeline("ALT-k,e=ë")
call makeline("")
call makeline("ALT-f,i=í ALT-g,i=ì ALT-h,i=î")
call makeline("ALT-k,i=ï")
call makeline("")
call makeline("ALT-f,o=ó ALT-g,o=ò ALT-h,o=ô")
call makeline("ALT-j,o=õ ALT-k,o=ö")
call makeline("")
call makeline("ALT-f,u=ú ALT-g,u=ù ALT-h,u=û")
call makeline("ALT-k,u=ü")
call makeline("")
call makeline("ALT-k,y=ÿ")
return
page_is_blank:
page_size=GET_PAGE(SIZE)
line_size=GET_LINE(SIZE)
if (page_size = 0 | page_size = 1) & line_size = 0 then
return 1
else
return 0
choppath:
parse arg file
if lastpos('/',file,length(file)-1)~=0 then do
filenam=right(file,(length(file)-lastpos('/',file,length(file)-1)))
path=left(file,(lastpos('/',file,length(file))-1))
end
else do
filenam=right(file,(length(file)-lastpos(':',file,length(file)-1)))
path=left(file,(lastpos(':',file,length(file))))
end
return